(vc-locking-user): In CVS case, convert user number to a string.

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 4b7bcbcf7af29ada0514362c3c665f2b21204ea9..ff22fd58698085b53d0158ca2a3cba84e056dd65 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -608,7 +608,10 @@ For CVS, the full name of CVS/Entries is returned."
            (and (equal (vc-file-getprop file 'vc-checkout-time)
                        (nth 5 (file-attributes file)))
                 (vc-file-setprop file 'vc-locking-user 'none))
-           (vc-file-setprop file 'vc-locking-user (vc-file-owner file))))
+           (let ((locker (vc-file-owner file)))
+             (vc-file-setprop file 'vc-locking-user
+                              (if (stringp locker) locker
+                                (format "%d" locker))))))
 
        ((eq (vc-backend file) 'RCS)
        (let (p-lock)